;; EX-47.scm - Sample and hold liquidities (JMcC)

(let* ((clockRate (MouseX.kr 1 200 1))
       (clockTime (Recip clockRate))
       (clock (Impulse.kr clockRate 0.4))
       (centerFreq (MouseY.kr 100 8000 1))
       (freq (Latch.kr (WhiteNoise.kr (Mul centerFreq 0.5) centerFreq) clock))
       (panPos (Latch.kr (WhiteNoise.kr) clock)))
  (CombN.ar
   (Pan2.ar 
    (SinOsc.ar freq 0 (Decay2.kr clock (Mul 0.1 clockTime) (Mul 0.9 clockTime)))
    panPos)
   0.3 0.3 2))
